
	character*8  NAMD(10),RANKS(2,14),MNAME,MPASS
	character LETR(13),ICLKON,IYES
	character*4 NHELP,NHELPS,IFROM,ITO,IPQ(10,10)

      COMMON/ARRAYS/BASE(2),EFP(3),EFT(25,2),ETR(3),GHOST(13),
     1  IBL(10,10),IDMG(10),IGAL(10,10),JGAL(10,10),
     1  IPROB1(10),RAD(9),STARS(9,2),TORPS(30,4),XKL(9,9),XROM(9,4)     
      
	common/cdata/ NAMD,ranks,mname,mpass,letr,NHELP,NHELPS,IYES
     1,ICLKON,IFROM,ITO,ipq

	COMMON/SCALAR/ACCE,DCHG,DDEG,DECR,DEFL,DELTA,DELV,DGIMP,DGKL,DGWP,
     1  DISTGT,DISTKR,DISTPE,DISTPK,DIV1,DIV2,DMXSPD,DSP,DSPKL,DVEL,    
     1  DVIMP,DVWP,EEVMSP,EIMP,ENERGY,ERPRRT,ESDIST,ETVEL,EVENU,EVMSP,  
     1  EWRP,FDATE,GHEMX,GHTMX,IBASE,ICE,IDOCK,IETOFT,IGH,IHERE,IHWARP, 
     1  ISTART,ITFCTR,ITFIRE,ITORP,ITRUCE,IZZ,JCE,KLNGNS,XKTIME,        
     1  LEFTK,LEFTR,MAXBQ,MAXK,MAXKQ,MAXR,MAXRQ,MAXSQ,MEN,MINK,MINR,    
     1  MROM,MULTK1,MULTK2,NBASES,NKL,NMEN,NROM,NSTARS,NSTEPS,NTORPS,   
     1  NTSTPS,NTRP,PCTCOL,PDEG,PNRGY,PRGH,PRKLN,PRREEN,PSP,PTRGH,      
     1  RADEGC,REEN,RPRKL,RPRRM,RTIME,RTV,SDATE,SENRGY,                 
     1  SIM,TFACTR,THITR,TNRGY,TPMIN,TPOWR,VMXKL,VRKL,XDDEG,XDSP,XGHIT, 
     1  XKFPE,XKFPST,XKLHIT,XRFTS,XRMHIT,XQE,XTIME,XTRTM,YQE,ZMIN,   
     1  PRORAS,RADEK,RADEG,RADER,RADEB,RADET,RADKR,RADKG,RADKB,RADKT,   
     1  RADKK,RADGB,RADGT,RAGGR,RADBT,RADTT,RADTR,RADES,RADSS           

	COMMON/LOCAL/ITBEAM,ISCAN,ITDK,JSCAN,JMSG,TRNRGY,IISTAT,JJSTAT,   
     1  JJUP,JJFROM,JJTO,JJDOWN                                         

	COMMON/TRNSFR/ICM,IDIR,MTORPS,DTORP(30),IBTYP,IEVDR,ADDFL,ITRSTP, 
     1  KFROM,MTO,LUP,LDOWN,JSCHM,ISHSTR(10),JDAM,            
     1  IPROB2(10),NGHTFP                                               

	COMMON/ZEROS/DVWP0,EWRP0,DISTP0,IETOF0,DISTG0,CODDS0,             
     1  EODDS0,IDAMR0,PJAM0,ETVEL0,SHLDF0,TRNRG0                        

	COMMON/EXTRAS/SNOVAP,ZMAX,ICLOAK,PRCLDN,PHOLE,IHOLE,JHOLE,HOLRAD, 
     1  SHLDF,NQUAD,PSTORM,ISTORM,JSTORM,STMRAD,LEVEL,ION

	COMMON/RANK/POINTS,RANKPT(14),NRANKS,IRANK,NRW, 
     1  MMKEY,NTIME,IOK,NHOLD,NSW                                

	COMMON/TBEAMS/IFGHTM,ITRMEN(20),JUP,JFROM,IBMEN,JDOWN,JTO,IBMENR, 
     1  SBMNR,CREWR(9),SCREWR,CREWK,CODDS,DODDS,EODDS,FODDS             

	COMMON/SUBCTL/ICNTL(20),RTBRG(5),KTO,LTO,KBRG,XWRP,               
     1  ISTAT,IDAMRP,SDEF,IMSG,SKDLAY,SRDLY,GHVMX,MXCRGH,GHPHEN,        
     1  DSPGH,DGGH,RPRGH,XHELP                             

	COMMON/FORGOT/GHACCE,PJAM,PJMINC,ACTPJM,PPHASD,PTORPD,PDRVD,      
     1  PDEFD,IGHPH,IGHTR,IGHDR,IGHDE                                   

	COMMON/SHUTL/SHX,SHY,SHDEG,SHVX,ISTSH,ISHD,IFNDS(9),IDSES,VDSES,  
     1  VSTRDS,VSTRM,PRXSH,VDSESM,ISHNUM                                

	COMMON/ATTACK/ITKL(18),JTKL(18)                                   

	COMMON/SHUTL2/ALEDR,IALIC,IALJC,IALSS,NDRA,NTROPS,DRL,DRD         

      COMMON/FILVAR/IV